#! /bin/sh
# Run CSHOT with CWP PostScript Graphics

demo=11
psfile1=demo${demo}1.eps
psfile2=demo${demo}2.eps
psfile3=demo${demo}3.eps
psfile4=demo${demo}4.eps
psfile5=demo${demo}5.eps
psfile6=demo${demo}6.eps

x1beg=0 x1end=2200 x2beg=0 x2end=10000

cp param1.1 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
psgraph <demo${demo}plot par=demo${demo}par style=seismic \
	title="Primary Rays" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end >$psfile1
# Put the PostScript on screen or printer according to local lore
cat $psfile1 | rsh dix -l jkc lpr -P$DixPrinter
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
supswigb title="Primaries (agc)" \
	label1="Time in Seconds" label2="Trace" >$psfile2
# Put the PostScript on screen or printer according to local lore
cat $psfile2 | rsh dix -l jkc lpr -P$DixPrinter

cp param1.2 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
psgraph <demo${demo}plot par=demo${demo}par style=seismic \
	title="Direct + Head" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end >$psfile3
# Put the PostScript on screen or printer according to local lore
cat $psfile3 | rsh dix -l jkc lpr -P$DixPrinter
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
supswigb title="Direct+Head (agc)" \
	label1="Time in Seconds" label2="Trace" >$psfile4
# Put the PostScript on screen or printer according to local lore
cat $psfile4 | rsh dix -l jkc lpr -P$DixPrinter

cp param1.3 param1
cshot1 |
cshotplot >demo${demo}plot  outpar=demo${demo}par
psgraph <demo${demo}plot par=demo${demo}par style=seismic \
	title="All the Rays" \
	label1="Depth (ft)"  label2="Range (ft)" \
	x1beg=$x1beg x1end=$x1end x2beg=$x2beg x2end=$x2end >$psfile5
# Put the PostScript on screen or printer according to local lore
cat $psfile5 | rsh dix -l jkc lpr -P$DixPrinter
cshot2
suaddhead <demo${demo}traces ftn=1 ns=501 |
sushw key=dt a=4000 |
sugain gagc=1 wagc=0.5 |
supswigb title="All (agc)" \
	label1="Time in Seconds" label2="Trace" >$psfile6
# Put the PostScript on screen or printer according to local lore
cat $psfile6 | rsh dix -l jkc lpr -P$DixPrinter

